www.gusucode.com > 落叶冰点万能企业网站内容管理系统 V9.1 > 落叶冰点万能企业网站内容管理系统 V9.1\code\admin\adminModel\conn_m.asp

    <%


'**************************************************************
' 新动软网站管理系统
' 官方网站: http://www.aspcpu.com
' 系统作者: 阮丁远(网名：天下程序)
' Copyright 新动软网站管理系统 版权所有
'**************************************************************


%>

<%


'On Error Resume Next
    'Dim ConnStr
        ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(dir_set&nd_mdcach_mdb)
    Set conn2 = Server.CreateObject("ADODB.Connection")
    conn2.open ConnStr
    If Err Then
        Err.Clear
        Set conn2 = Nothing
        Response.Write "数据库连接出错，请检查Conn.asp文件中的数据库参数设置。"
        Response.End
    End If


Sub OpenConn2()
    'On Error Resume Next
    'Dim ConnStr
        ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(dir_set&nd_mdcach_mdb)
    Set conn2 = Server.CreateObject("ADODB.Connection")
    conn2.open ConnStr
    If Err Then
        Err.Clear
        Set conn2 = Nothing
        Response.Write "数据库连接出错，请检查Conn.asp文件中的数据库参数设置。"
        Response.End
    End If
	    J_True = "True"
        J_False = "False"
        J_Now = "Now()"  '获得现在的时间

End Sub




Sub CloseConn2()
    On Error Resume Next
    If IsObject(conn2) Then
        conn2.Close
        Set conn2 = Nothing
    End If
End Sub



%>